%% Copyright 2008 Kevin A. Smith 
%% Licensed under the Apache License, Version 2.0 (the "License"); 
%% you may not use this file except in compliance with the License. 
%% You may obtain a copy of the License at 
%%
%% http://www.apache.org/licenses/LICENSE-2.0 
%%
%% Unless required by applicable law or agreed to in writing, software 
%% distributed under the License is distributed on an "AS IS" BASIS, 
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 
%% See the License for the specific language governing permissions and 
%% limitations under the License.

-module(aws_keypairs).

-export([create/2, describe_all/1, describe/2, describe_set/2, delete/2]).

create(Keys, Name) ->
	aws_util:send_request(Keys, [{"Action", ["CreateKeyPair"]}, {"KeyName", [Name]}, keypairs_response_parser]).
	
describe_all(Keys) ->
	aws_util:send_request(Keys, [{"Action", ["DescribeKeyPairs"]}], keypairs_response_parser).
	
describe(Keys, KeyName) ->
	aws_util:send_request(Keys, [{"Action", ["DescribeKeyPairs"], {"KeyName", [KeyName]}}], keypairs_response_parser).

describe_set(Keys, KeyName) ->
	aws_util:send_request(Keys, [{"Action", ["DescribeKeyPairs"]}, {"KeyName", KeyName}], keypairs_response_parser).
	
delete(Keys, KeyName) ->
	aws_util:send_request(Keys, [{"Action", ["DeleteKeyPair"]}, {"KeyName", [KeyName]}], keypairs_response_parser).
